home *** CD-ROM | disk | FTP | other *** search
- ; $VER: AudioEDUpdate V 2.87 (28.09.95)
- ;
- ; Installation script for the Commodore Installer (tm)
- ;
- ; Updates the program AudioED 2.86 by Frank Enderle from
- ; the original 2.86 distribution to version 2.87.
-
- ; startup message
-
- (set old_level @user-level)
- (set sys_ver (/ (getversion "exec.library" (resident)) 65536))
-
- (if (< sys_ver 37) (
- (abort "AudioED requires at least Kickstart 2.04 !")
- (exit (quiet))
- ))
-
- (user 1)
- (message "This script updates the program\n\nAudioED\nVersion 2.86\n\n"
- "which has to be present on your harddisk to version 2.87. To "
- "get the complete program download the archive "
- "text/print/audioed287.lha from the Aminet!\n\n"
- "All patches contained in this archive are Copyright © 1995 by Frank Enderle\n\n"
- "The patcher is Copyright © 1993 by MJSoft System Software, Martin Mares")
- (user old_level)
-
- ; ask user where AudioED is installed
-
- (set drawer
- (askdir
- (prompt "Please select the directory where you have AudioED 2.86 installed (eg. SYS:AudioED)")
- (help @askdir-help)
- (default "SYS:")
- )
- )
-
- (set @default-dest drawer)
-
- (complete 25)
-
- (if (exists (tackon drawer "AudioED") (noreq)) (
- (copyfiles
- (source (tackon drawer "AudioED"))
- (dest drawer)
- (newname "AudioED.bak")
- )
- (run "patcher"(tackon drawer "AudioED.bak") (tackon drawer "AudioED")"audioed.pch")
- ))
-
- (complete 50)
-
- (if (exists (tackon drawer "AudioED.guide") (noreq)) (
- (copyfiles
- (source (tackon drawer "AudioED.guide"))
- (dest drawer)
- (newname "AudioED.guide.bak")
- )
-
- (working "Scanning guide file\n\nPlease wait a few seconds...")
-
- (set sum (getsum (tackon drawer "AudioED.guide")))
-
- (if (= sum $0618FD74) (
- (run "patcher"(tackon drawer "AudioED.guide.bak") (tackon drawer "AudioED.guide")"guide_deutsch.pch")
- ) (if (= sum $15FFCE05) (
- (run "patcher"(tackon drawer "AudioED.guide.bak") (tackon drawer "AudioED.guide")"guide_english.pch")
- )))
- ))
-
- (complete 75)
-
- (if (exists "locale:catalogs/deutsch/audioed.catalog" (noreq)) (
- (copyfiles
- (source "locale:catalogs/deutsch/audioed.catalog")
- (dest "locale:catalogs/deutsch")
- (newname "audioed.catalog.bak")
- )
- (run "patcher locale:catalogs/deutsch/audioed.catalog.bak locale:catalogs/deutsch/audioed.catalog audioed_deutsch_catalog.pch")
- ))
-
- (if (> (exists ("c:multiview")) 0) (set mvpath "c:") )
- (if (> (exists ("sys:utilities/multiview")) 0) (set mvpath "sys:utilities") )
-
- (run (cat "run " mvpath "/multiview Changes") )
- (complete 100)
- (exit)
-